(pmail-only-expunge): Pass correct arg to pmail-show-message-maybe.

diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index 25fc614053dda083c877fdf165abe93b87104bb2..e75aea1c4fee4af04d5980418788c81bbfd170a3 100644 (file)
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -3552,7 +3552,7 @@ See also user-option `pmail-confirm-expunge'."
       (if (not win)
          (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)))
       (if (not dont-show)
-         (pmail-show-message-maybe (< pmail-current-message pmail-total-messages)))
+         (pmail-show-message-maybe (min pmail-current-message pmail-total-messages)))
       (pmail-swap-buffers-maybe)
       (if pmail-enable-mime
          (goto-char (+ (point-min) opoint))